      MODULE employv2kp_v3
      USE employv2kp_v1
      CONTAINS
      SUBROUTINE SSALVC(MMNST,SSZ,ERRMES)
      CHARACTER*(*) ERRMES
      CHARACTER*10 SUBNAM
      PARAMETER(SUBNAM='SSALVC')
      INTEGER MMNST,SSZ(MMNST),ASTAT
      IF(.NOT.ALLOCATED(V00001)) THEN
      ALLOCATE(V00001(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00002)) THEN
      ALLOCATE(V00002(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00003)) THEN
      ALLOCATE(V00003(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00004)) THEN
      ALLOCATE(V00004(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00005)) THEN
      ALLOCATE(V00005(SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00006)) THEN
      ALLOCATE(V00006(SSZ(3)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00007)) THEN
      ALLOCATE(V00007(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00008)) THEN
      ALLOCATE(V00008(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00009)) THEN
      ALLOCATE(V00009(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00010)) THEN
      ALLOCATE(V00010(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00011)) THEN
      ALLOCATE(V00011(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00012)) THEN
      ALLOCATE(V00012(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00013)) THEN
      ALLOCATE(V00013(SSZ(2),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00014)) THEN
      ALLOCATE(V00014(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00015)) THEN
      ALLOCATE(V00015(SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00016)) THEN
      ALLOCATE(V00016(SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00017)) THEN
      ALLOCATE(V00017(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00018)) THEN
      ALLOCATE(V00018(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00019)) THEN
      ALLOCATE(V00019(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00020)) THEN
      ALLOCATE(V00020(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00021)) THEN
      ALLOCATE(V00021(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00022)) THEN
      ALLOCATE(V00022(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00023)) THEN
      ALLOCATE(V00023(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00024)) THEN
      ALLOCATE(V00024(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00025)) THEN
      ALLOCATE(V00025(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00026)) THEN
      ALLOCATE(V00026(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00027)) THEN
      ALLOCATE(V00027(SSZ(1),SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00028)) THEN
      ALLOCATE(V00028(SSZ(2),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00029)) THEN
      ALLOCATE(V00029(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00030)) THEN
      ALLOCATE(V00030(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00031)) THEN
      ALLOCATE(V00031(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00032)) THEN
      ALLOCATE(V00032(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00033)) THEN
      ALLOCATE(V00033(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00034)) THEN
      ALLOCATE(V00034(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00035)) THEN
      ALLOCATE(V00035(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00036)) THEN
      ALLOCATE(V00036(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00037)) THEN
      ALLOCATE(V00037(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00038)) THEN
      ALLOCATE(V00038(SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00039)) THEN
      ALLOCATE(V00039(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00040)) THEN
      ALLOCATE(V00040(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00041)) THEN
      ALLOCATE(V00041(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00042)) THEN
      ALLOCATE(V00042(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00043)) THEN
      ALLOCATE(V00043(SSZ(3),SSZ(1)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00044)) THEN
      ALLOCATE(V00044(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00045)) THEN
      ALLOCATE(V00045(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00046)) THEN
      ALLOCATE(V00046(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00047)) THEN
      ALLOCATE(V00047(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00048)) THEN
      ALLOCATE(V00048(SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00049)) THEN
      ALLOCATE(V00049(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00050)) THEN
      ALLOCATE(V00050(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00051)) THEN
      ALLOCATE(V00051(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00052)) THEN
      ALLOCATE(V00052(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00053)) THEN
      ALLOCATE(V00053(SSZ(2)),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00054)) THEN
      ALLOCATE(V00054(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00055)) THEN
      ALLOCATE(V00055(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00056)) THEN
      ALLOCATE(V00056(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00057)) THEN
      ALLOCATE(V00057(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      IF(.NOT.ALLOCATED(V00058)) THEN
      ALLOCATE(V00058(1),STAT=ASTAT)
      IF(ASTAT.NE.0) GOTO 24200
      END IF
      RETURN
15500 CONTINUE
      CALL PERETM(SUBNAM,ERRMES)
      RETURN
24200 CONTINUE
      CALL GPAERR(ASTAT,ERRMES)
      GOTO 15500
      END SUBROUTINE SSALVC
      END MODULE employv2kp_v3
